Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/MacOberonLite 1.0.1/Sys Files/MacToolbox.Mod

Oberon Text | 1993-05-29 | 16.6 KB | 294 lines | [.Ob./.Ob4]

Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
MODULE MacToolbox;
(* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
            Toolbox Essentials + general data types and some convertion routines.
    However this implementation is NOT complete. If use miss some items, please use Inside Mac
    and complete this module for your needs.
    See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
IMPORT
    SYSTEM,IM:=MacImaging,ME:=MacMemory;
CONST
    (*Event Manager Constants*)
        nullEvent*=0; mouseDown*=1; mouseUp*=2; keyDown*=3; keyUp*=4; autoKey*=5; updateEvt*=6; diskEvt*=7;
        activateEvt*=8; osEvt*=15; everyEvent*=-1; kHighLevelEvent*=23; suspendResumeMessage*=1;
    (* Menu Manager Constants *)
        noMark*=0;hMenuCmd*=27;hierMenu*=-1;
    (*Window Manager Window Kind*)
        dialogKind*=2; userKind*=8;
    (*Window Manager FindWindow Result Codes *)
        inDesk*=0; inMenuBar*=1; inSysWindow*=2; inContent*=3; inDrag*=4; inGrow*=5; inGoAway*=6; inZoomIn*=7; inZoomOut*=8;
    (* Control Manager *)
        inButton*=10;inCheckBox*=11;inUpButton*=20;inDownButton*=21;inPageUp*=22;inPageDown*=23;inThumb*=129;
    (*Window Manager*)
        WindowPtr*=POINTER- TO WindowRecord;
        WindowRecord*=RECORD (IM.GrafPort)
            windowKind*: INTEGER; visible*, hilited*, goAwayFlag*, spareFlag*: BOOLEAN;
            strucRgn*, contRgn*, updateRgn*: IM.RgnHandle; windowDefProc*, dataHandle*: ME.Handle;
            titleHandle*: ME.StringHandle; titleWidth*: INTEGER;
            controlList*: ME.Handle; nextWindow*: WindowPtr; windowPic*: ME.Handle; refCon*: LONGINT
        END;
        ColorSpec*=RECORD
            value*:INTEGER;
            rgb*:IM.RGBColor
        END;
        WCTabPtr*=POINTER- TO WinCTab;
        WCTabHandle*=POINTER- TO RECORD p*:WCTabPtr END;
        WinCTab*=RECORD
            wCSeed*:LONGINT;
            wCReserved:INTEGER;
            ctSize*:INTEGER;
            ctTable*:ARRAY 5 OF ColorSpec
        END;
    (* Menu Manager *)
        MenuPtr*=POINTER- TO MenuInfo;
        MenuHandle*=POINTER- TO RECORD p*:MenuPtr END;
        MenuInfo*=RECORD
            menuID*:INTEGER;
            menuWidth*:INTEGER;
            menuHeight*:INTEGER;
            menuProc*:ME.Handle;
            enableFlags*:LONGINT;
            menuData*:ME.Str255
        END;
        MCTablePtr*=POINTER- TO RECORD END;
        MCTableHandle*=POINTER- TO RECORD p*:MCTablePtr END;
        MCEntryPtr*=POINTER- TO MCEntry;
        MCEntry*=RECORD
            mctID*:INTEGER;
            mctItem*:INTEGER;
            mctRGB1*:IM.RGBColor;
            mctRGB2*:IM.RGBColor;
            mctRGB3*:IM.RGBColor;
            mctRGB4*:IM.RGBColor;
            mctReserved:INTEGER
        END;
    (* Event Manager *)
        EventRecord*=RECORD
            what*: INTEGER;
            message*: LONGINT; when*: LONGINT; where*: IM.Point; modifiers*: INTEGER
        END;
        KeyMap*=ARRAY 4 OF LONGINT;
    (* Dialog Manager *)
        DialogPtr*=WindowPtr;
        DialogPeek*=POINTER- TO DialogRecord;
        DialogRecord*=RECORD
            window*:WindowRecord;
            items*:ME.Handle;
            textH*:ME.Handle;
            editField*:INTEGER;
            editOpen*:INTEGER;
            aDefItem*:INTEGER
        END;
    (* Control Manager *)
        ControlPtr*=POINTER- TO ControlRecord;
        ControlHandle*= POINTER- TO RECORD p*:ControlPtr END;
        ControlRecord*=RECORD
            nextControl*: ControlHandle;
            contrlOwner*: WindowPtr;
            contrlRect*: IM.Rect;
            contrlVis*: SHORTINT;
            contrlHilite*: SHORTINT;
            contrlValue*: INTEGER;
            contrlMin*: INTEGER;
            contrlMax*: INTEGER;
            contrlDefProc*: ME.Handle;
            contrlData*: ME.Handle;
            contrlAction*: PROCEDURE;
            contrlRfCon*: LONGINT;
            contrlTitle*: ME.Str255;
        END;
(* Str255 *)
    PROCEDURE SetStr255*(VAR theStr255: ME.Str255; chars: ARRAY OF CHAR);
        VAR i: INTEGER; ch: CHAR;
    BEGIN    i:=0;
        REPEAT    ch:=chars[i]; INC(i); theStr255[i]:=ch    UNTIL    (ch =0X) OR (i=256);
        theStr255[0]:=CHR(i-1)
    END SetStr255;
    PROCEDURE GetStr255*(VAR theStr255: ME.Str255; VAR chars: ARRAY OF CHAR);
        VAR n: INTEGER; ch: CHAR;
    BEGIN    n:=ORD(theStr255[0]);    IF    LEN(chars) < n    THEN    n:=SHORT(LEN(chars))    END;
        chars[n]:=0X;    WHILE    n > 0    DO    ch:=theStr255[n]; DEC(n); chars[n]:=ch    END
    END GetStr255;
(* Macintosh Register_Based Core OS Traps*)
    PROCEDURE- PostEvent*    0A0H, 02FH;
    PROCEDURE- OSEventAvail*    0A0H, 030H;
    PROCEDURE- GetOSEvent*    0A0H, 031H;
    PROCEDURE- FlushEvents*    0A0H, 032H;
(* Window Manager *)
    PROCEDURE- InitWindows*    0A9H, 012H;
    PROCEDURE- NewWindow*(wStorage: ME.Ptr; boundsRect: IM.Rect; title: ME.Str255; visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr 0A9H, 013H;
    PROCEDURE- GetNewWindow*(windowID: INTEGER; wStorage: ME.Ptr; behind: WindowPtr): WindowPtr 0A9H, 0BDH;
    PROCEDURE- CloseWindow*(theWindow: WindowPtr)    0A9H, 02DH;
    PROCEDURE- DisposeWindow*(theWindow: WindowPtr)    0A9H, 014H;
    PROCEDURE- NewCWindow*(wStorage: ME.Ptr;boundsRect: IM.Rect;title: ME.Str255;visible: BOOLEAN;
        procID: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT): WindowPtr    0AAH,045H;
    PROCEDURE- GetNewCWindow*(windowID: INTEGER;wStorage: ME.Ptr;behind: WindowPtr): WindowPtr    0AAH,046H;
    PROCEDURE- SetWTitle*(theWindow: WindowPtr; title: ME.Str255)    0A9H, 01AH;
    PROCEDURE- GetWTitle*(theWindow: WindowPtr; VAR title: ME.Str255)    0A9H, 019H;
    PROCEDURE- SelectWindow*(theWindow: WindowPtr)    0A9H, 01FH;
    PROCEDURE- ShowWindow*(theWindow: WindowPtr)    0A9H, 015H;
    PROCEDURE- HideWindow*(theWindow: WindowPtr)    0A9H, 016H;
    PROCEDURE- BringToFront*(theWindow: WindowPtr)    0A9H, 020H;
    PROCEDURE- SendBehind*(theWindow, behindWindow: WindowPtr)    0A9H, 021H;
    PROCEDURE- FrontWindow*(): WindowPtr    0A9H, 024H;
    PROCEDURE- DrawGrowIcon*(theWindow: WindowPtr)    0A9H, 004H;
    PROCEDURE- FindWindow*(thePoint: IM.Point; VAR theWindow: WindowPtr): INTEGER    0A9H, 02CH;
    PROCEDURE- TrackGoAway*(theWindow: WindowPtr; thePt: IM.Point): BOOLEAN    0A9H, 01EH;
    PROCEDURE- TrackBox*(theWindow: WindowPtr; thePt: IM.Point; partCode: INTEGER): BOOLEAN    0A8H, 03BH;
    PROCEDURE- MoveWindow*(theWindow: WindowPtr; hGlobal, vGlobal: INTEGER; front: BOOLEAN)    0A9H, 01BH;
    PROCEDURE- DragWindow*(theWindow: WindowPtr; startPt: IM.Point; boundsRect: IM.Rect)    0A9H, 025H;
    PROCEDURE- SizeWindow*(theWindow: WindowPtr; w, h: INTEGER; fUpdate: BOOLEAN)    0A9H, 01DH;
    PROCEDURE- GrowWindow*(theWindow: WindowPtr; startPt: IM.Point; bBox: IM.Rect): LONGINT    0A9H, 02BH;
    PROCEDURE- ZoomWindow*(theWindow: WindowPtr; partCode: INTEGER; front: BOOLEAN)    0A8H, 03AH;
    PROCEDURE- PinRect*(theRect: IM.Rect;thePt: IM.Point): LONGINT    0A9H,04EH;
    PROCEDURE- DragGrayRgn*(theRgn: IM.RgnHandle;startPt: IM.Point;boundsRect: IM.Rect;
        slopRect: IM.Rect;axis: INTEGER;actionProc: PROCEDURE): LONGINT    0A9H,005H;
    PROCEDURE- ValidRect*(goodRect: IM.Rect)    0A9H, 02AH;
    PROCEDURE- ValidRgn*(goodRgn : IM.RgnHandle)    0A9H,029H;
    PROCEDURE- InvalRect*(badRect: IM.Rect)    0A9H, 028H;
    PROCEDURE- InvalRgn*(badRgn: IM.RgnHandle)    0A9H,027H;
    PROCEDURE- BeginUpdate*(theWindow: WindowPtr)    0A9H, 022H;
    PROCEDURE- EndUpdate*(theWindow: WindowPtr)    0A9H, 023H;
    PROCEDURE- SetWRefCon*(theWindow: WindowPtr;data: LONGINT)    0A9H,018H;
    PROCEDURE- GetWRefCon*(theWindow: WindowPtr): LONGINT    0A9H,017H;
    PROCEDURE- SetWindowPic*(theWindow: WindowPtr;pic: IM.PicHandle)    0A9H,02EH;
    PROCEDURE- GetWindowPic*(theWindow: WindowPtr): IM.PicHandle    0A9H,02FH;
    PROCEDURE- GetWVariant*(theWindow: WindowPtr): INTEGER    0A8H,00AH;
    PROCEDURE- GetCWMgrPort*(VAR wMgrCPort: IM.CGrafPtr)    0AAH,048H;
    PROCEDURE- SetWinColor*(theWindow: WindowPtr;newColorTable: WCTabHandle)    0AAH,041H;
    PROCEDURE- SetDeskCPat*(deskPixPat: IM.PixPatHandle)    0AAH,047H;
(* Menu Manager *)
    PROCEDURE- InitMenus*    0A9H, 030H;
    PROCEDURE- NewMenu*(menuID: INTEGER; menuTitle: ME.Str255): MenuHandle    0A9H, 031H;
    PROCEDURE- GetMenu*(resourceID: INTEGER): MenuHandle    0A9H, 0BFH;
    PROCEDURE- DisposeMenu*(theMenu: MenuHandle)    0A9H, 032H;
    PROCEDURE- AppendMenu*(menu: MenuHandle; data: ME.Str255)    0A9H, 033H;
    PROCEDURE- AddResMenu*(theMenu: MenuHandle; theType: LONGINT)    0A9H, 04DH;
    PROCEDURE- InsertResMenu*(theMenu: MenuHandle; theType: LONGINT; afterItem: INTEGER)    0A9H, 051H;
    PROCEDURE- InsMenuItem*(theMenu: MenuHandle; itemString: ME.Str255; afterItem: INTEGER)    0A8H, 026H;
    PROCEDURE- DelMenuItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 052H;
    PROCEDURE- InsertMenu*(theMenu: MenuHandle; beforeID: INTEGER)    0A9H, 035H;
    PROCEDURE- DrawMenuBar*()    0A9H, 037H;
    PROCEDURE- InvalMenuBar*()    0A8H, 01DH;
    PROCEDURE- DeleteMenu*(menuID: INTEGER)    0A9H, 036H;
    PROCEDURE- ClearMenuBar*()    0A9H, 034H;
    PROCEDURE- GetNewMBar*(menuBarID: INTEGER): ME.Handle    0A9H, 0C0H;
    PROCEDURE- GetMenuBar*(): ME.Handle    0A9H, 03BH;
    PROCEDURE- SetMenuBar*(menuList: ME.Handle)    0A9H, 03CH;
    PROCEDURE- MenuChoice*(): LONGINT    0AAH, 066H;
    PROCEDURE- MenuSelect*(startPt: IM.Point): LONGINT    0A9H, 03DH;
    PROCEDURE- MenuKey*(ch: INTEGER): LONGINT    0A9H, 03EH;
    PROCEDURE- HiliteMenu*(menuID: INTEGER)    0A9H, 038H;
    PROCEDURE- PopUpMenuSelect*(menu: MenuHandle; top, left, popUpItem: INTEGER): LONGINT    0A8H, 00BH;
    PROCEDURE- SetItem*(theMenu: MenuHandle; item: INTEGER; itemString: ME.Str255)    0A9H, 047H;
    PROCEDURE- GetItem*(theMenu: MenuHandle; item: INTEGER; VAR itemString: ME.Str255)    0A9H, 046H;
    PROCEDURE- DisableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 03AH;
    PROCEDURE- EnableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 039H;
    PROCEDURE- CheckItem*(theMenu: MenuHandle; item: INTEGER; checked: BOOLEAN)    0A9H, 045H;
    PROCEDURE- SetItemMark*(theMenu: MenuHandle; item: INTEGER; markChar: INTEGER)    0A9H, 044H;
    PROCEDURE- GetItemMark*(theMenu: MenuHandle; item: INTEGER; VAR markChar: INTEGER)    0A9H, 043H;
    PROCEDURE- SetItemIcon*(theMenu: MenuHandle; item: INTEGER; icon: INTEGER)    0A9H, 040H;
    PROCEDURE- GetItemIcon*(theMenu: MenuHandle; item: INTEGER; VAR iconNum: INTEGER)    0A9H, 03FH;
    PROCEDURE- SetItemStyle*(theMenu: MenuHandle; item, chStyle: INTEGER)    0A9H, 042H;
    PROCEDURE- GetItemStyle*(theMenu: MenuHandle; item: INTEGER; VAR chStyle: INTEGER)    0A9H, 041H;
    PROCEDURE- GetItemCmd*(theMenu: MenuHandle; item: INTEGER; VAR cmdChar: INTEGER)    0A8H, 04EH;
    PROCEDURE- SetItemCmd*(theMenu: MenuHandle; item: INTEGER; cmdChar: INTEGER)    0A8H, 04FH;
    PROCEDURE- CalcMenuSize*(theMenu: MenuHandle)    0A9H, 048H;
    PROCEDURE- CountMItems*(theMenu: MenuHandle): INTEGER    0A9H, 050H;
    PROCEDURE- GetMHandle*(menuID: INTEGER): MenuHandle    0A9H, 049H;
    PROCEDURE- FlashMenuBar*(menuID: INTEGER)    0A9H, 04CH;
    PROCEDURE- SetMenuFlash*(count: INTEGER)    0A9H, 04AH;
    PROCEDURE- InitProcMenu*(resID: INTEGER)    0A8H, 008H;
    PROCEDURE- DelMCEntries*(menuID: INTEGER;menuItem: INTEGER)    0AAH,060H;
    PROCEDURE- GetMCInfo(): MCTableHandle    0AAH,061H;
    PROCEDURE- SetMCInfo*(menuCTbl: MCTableHandle)    0AAH,062H;
    PROCEDURE- DispMCInfo*(menuCTbl: MCTableHandle)    0AAH,063H;
    PROCEDURE- GetMCEntry*(menuID: INTEGER;menuItem: INTEGER): ME.Ptr    0AAH,064H;
    PROCEDURE- SetMCEntries*(numEntries: INTEGER;menuCEntries: MCTablePtr)    0AAH,065H;
(* Dialog Manager *)
    PROCEDURE- InitDialogs*(restartProc: PROCEDURE)    0A9H, 07BH;
    PROCEDURE- ErrorSound*(soundProc: PROCEDURE(soundNo:INTEGER))    0A9H,08CH;
    PROCEDURE- SetDAFont*(fontNum: INTEGER)    031H,0DFH,00AH,0FAH;
    PROCEDURE- NewDialog*(wStorage: ME.Ptr; boundsRect: IM.Rect; title: ME.Str255; visible: BOOLEAN; procID: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT; itmLstHndl: ME.Handle): DialogPtr    0A9H, 07DH;
    PROCEDURE- GetNewDialog*(dialogID: INTEGER; dStorage: ME.Ptr; behind: WindowPtr): DialogPtr    0A9H, 07CH;
    PROCEDURE- CloseDialog*(theDialog: DialogPtr)    0A9H, 082H;
    PROCEDURE- DisposeDialog*(theDialog: DialogPtr)    0A9H, 083H;
    PROCEDURE- CouldDialog*(dialogID: INTEGER)    0A9H, 079H;
    PROCEDURE- FreeDialog*(dialogID: INTEGER)    0A9H, 07AH;
    PROCEDURE- Alert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 085H;
    PROCEDURE- StopAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 086H;
    PROCEDURE- NoteAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 087H;
    PROCEDURE- CautionAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 088H;
    PROCEDURE- CouldAlert*(alertID: INTEGER)    0A9H, 089H;
    PROCEDURE- FreeAlert*(alertID: INTEGER)    0A9H, 08AH;
    PROCEDURE- ParamText*(param0, param1, param2, param3: ME.Str255)    0A9H, 08BH;
    PROCEDURE- GetDItem*(theDialog: DialogPtr; itemNo: INTEGER; VAR itemType: INTEGER; VAR item: ME.Handle; VAR box: IM.Rect)    0A9H, 08DH;
    PROCEDURE- SetDItem*(theDialog: DialogPtr; itemNo, itemType: INTEGER; item: ME.Handle; box: IM.Rect)    0A9H, 08EH;
    PROCEDURE- GetIText*(item: ME.Handle; VAR text: ME.Str255)    0A9H, 090H;
    PROCEDURE- SetIText*(item: ME.Handle; text: ME.Str255)    0A9H, 08FH;
    PROCEDURE- SelIText*(theDialog: DialogPtr; itemNo, strtSel, endSel: INTEGER)    0A9H, 07EH;
    PROCEDURE- HideDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 027H;
    PROCEDURE- ShowDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 028H;
    PROCEDURE- FindDItem*(theDialog: DialogPtr; thePt: IM.Point): INTEGER    0A9H, 084H;
    PROCEDURE- ModalDialog*(filterProc: PROCEDURE; VAR itemHit: INTEGER)    0A9H, 091H;
    PROCEDURE- IsDialogEvent*(theEvent: EventRecord): BOOLEAN 0A9H, 07FH;
    PROCEDURE- DialogSelect*(theEvent: EventRecord; VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN 0A9H, 080H;
    PROCEDURE- DrawDialog*(theDialog: DialogPtr)    0A9H, 081H;
    PROCEDURE- UpdtDialog*(theDialog: DialogPtr; updateRgn: IM.RgnHandle)    0A9H, 078H;
(* Desk Manager *)
    PROCEDURE- OpenDeskAcc*(theAcc: ME.Str255): INTEGER    0A9H, 0B6H;
    PROCEDURE- CloseDeskAcc*(refNum: INTEGER)    0A9H, 0B7H;
    PROCEDURE- SystemClick*(theEvent: EventRecord; theWindow: WindowPtr)    0A9H, 0B3H;
    PROCEDURE- SystemEdit*(editCmd: INTEGER): BOOLEAN    0A9H, 0C2H;
    PROCEDURE- SystemTask*()    0A9H, 0B4H;
    PROCEDURE- SystemEvent*(theEvent: EventRecord): BOOLEAN    0A9H, 0B2H;
    PROCEDURE- SystemMenu*(menuResult: LONGINT)    0A9H, 0B5H;
(* Event Manager *)
    PROCEDURE- GetNextEvent*(mask: INTEGER; VAR event: EventRecord) : BOOLEAN    0A9H, 070H;
    PROCEDURE- WaitNextEvent*(mask: INTEGER; VAR event: EventRecord; sleep: LONGINT; mouseRgn: IM.RgnHandle): BOOLEAN    0A8H, 60H;
    PROCEDURE- EventAvail*(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN    0A9H, 071H;
    PROCEDURE- GetKeys*(VAR theKeys: KeyMap)    0A9H, 076H;
    PROCEDURE- GetMouse*(VAR mouseLoc: IM.Point)    0A9H, 072H;
    PROCEDURE- Button*() : BOOLEAN    0A9H, 074H;
    PROCEDURE- StillDown*() : BOOLEAN    0A9H, 073H;
    PROCEDURE- WaitMouseUp*() : BOOLEAN    0A9H, 077H;
    PROCEDURE- TickCount*(): LONGINT    0A9H, 075H;
    PROCEDURE- GetDblTime*() : LONGINT    02EH,0B8H,002H,0F0H;
    PROCEDURE- GetCaretTime*() : LONGINT    02EH,0B8H,002H,0F4H;
(* Control Manager *)
    PROCEDURE- NewControl*(theWindow: WindowPtr;boundsRect: IM.Rect;title: ME.Str255;
        visible: BOOLEAN;value: INTEGER;min: INTEGER;max: INTEGER;procID: INTEGER;
        refCon: LONGINT): ControlHandle    0A9H,054H;
    PROCEDURE- SetCTitle*(theControl: ControlHandle;title: ME.Str255)    0A9H,05FH;
    PROCEDURE- GetCTitle*(theControl: ControlHandle;VAR title: ME.Str255)    0A9H,05EH;
    PROCEDURE- GetNewControl*(controlID: INTEGER;owner: WindowPtr): ControlHandle    0A9H,0BEH;
    PROCEDURE- DisposeControl*(theControl: ControlHandle)    0A9H,055H;
    PROCEDURE- KillControls*(theWindow: WindowPtr)    0A9H,056H;
    PROCEDURE- HideControl*(theControl: ControlHandle)    0A9H,058H;
    PROCEDURE- ShowControl*(theControl: ControlHandle)    0A9H,057H;
    PROCEDURE- DrawControls*(theWindow: WindowPtr)    0A9H,069H;
    PROCEDURE- Draw1Control*(theControl: ControlHandle)    0A9H,06DH;
    PROCEDURE- HiliteControl*(theControl: ControlHandle;hiliteState: INTEGER)    0A9H,05DH;
    PROCEDURE- UpdtControl*(theWindow: WindowPtr;updateRgn: IM.RgnHandle)    0A9H,053H;
    PROCEDURE- UpdateControls*(theWindow: WindowPtr;updateRgn: IM.RgnHandle)    0A9H,053H;
    PROCEDURE- MoveControl*(theControl: ControlHandle;h: INTEGER;v: INTEGER)    0A9H,059H;
    PROCEDURE- SizeControl*(theControl: ControlHandle;w: INTEGER;h: INTEGER)    0A9H,05CH;
    PROCEDURE- SetCtlValue*(theControl: ControlHandle;theValue: INTEGER)    0A9H,063H;
    PROCEDURE- GetCtlValue*(theControl: ControlHandle): INTEGER    0A9H,060H;
    PROCEDURE- SetCtlMin*(theControl: ControlHandle;minValue: INTEGER)    0A9H,064H;
    PROCEDURE- GetCtlMin*(theControl: ControlHandle): INTEGER    0A9H,061H;
    PROCEDURE- SetCtlMax*(theControl: ControlHandle;maxValue: INTEGER)    0A9H,065H;
    PROCEDURE- GetCtlMax*(theControl: ControlHandle): INTEGER    0A9H,062H;
    PROCEDURE- SetCRefCon*(theControl: ControlHandle;data: LONGINT)    0A9H,05BH;
    PROCEDURE- GetCRefCon*(theControl: ControlHandle): LONGINT    0A9H,05AH;
    PROCEDURE- SetCtlAction*(theControl: ControlHandle;actionProc: PROCEDURE)    0A9H,06BH;
    PROCEDURE- GetCtlAction*(theControl: ControlHandle): ME.Ptr    0A9H,06AH;
    PROCEDURE- DragControl*(theControl: ControlHandle;startPt: IM.Point;limitRect: IM.Rect;
        slopRect: IM.Rect;axis: INTEGER)    0A9H,067H;
    PROCEDURE- TestControl*(theControl: ControlHandle;thePt: IM.Point): INTEGER    0A9H,066H;
    PROCEDURE- TrackControl*(theControl: ControlHandle;thePoint: IM.Point;actionProc: PROCEDURE(control : ControlHandle;part : INTEGER)): INTEGER    0A9H,068H;
    PROCEDURE- FindControl*(thePoint: IM.Point;theWindow: WindowPtr;VAR theControl: ControlHandle): INTEGER 0A9H,06CH;
    PROCEDURE- GetCVariant*(theControl: ControlHandle): INTEGER    0A8H,009H;
END MacToolbox.